VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9.ocx"
Object = "{CBB104A8-0C3C-11D1-BC39-004095912184}#2.0#0"; "ZTray.ocx"
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "BKSCT Procon 2006"
   ClientHeight    =   9390
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   11250
   Icon            =   "BKSCT.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   626
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   750
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   6240
      TabIndex        =   4
      Text            =   "113"
      Top             =   9000
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Send RFID"
      Height          =   255
      Left            =   8640
      TabIndex        =   3
      Top             =   9120
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   2
      Text            =   "BKSCT.frx":1708A
      Top             =   8520
      Width           =   10815
   End
   Begin myZTray.ZTray ZTray1 
      Left            =   120
      Top             =   8520
      _ExtentX        =   953
      _ExtentY        =   953
      TipText         =   "BKSmart Children Tracker"
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Minimize"
      Height          =   240
      Left            =   10080
      TabIndex        =   1
      Top             =   9120
      Width           =   1000
   End
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash oFlash 
      Height          =   8400
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11250
      _cx             =   19844
      _cy             =   14817
      FlashVars       =   ""
      Movie           =   "c:\Program Files\BKSCT\BKSCT.swf"
      Src             =   "c:\Program Files\BKSCT\BKSCT.swf"
      WMode           =   "Window"
      Play            =   0   'False
      Loop            =   0   'False
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   0   'False
      Base            =   ""
      AllowScriptAccess=   ""
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
      Profile         =   0   'False
      ProfileAddress  =   ""
      ProfilePort     =   0
      AllowNetworking =   "all"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub loadFlash()
    myString = "<cam id=1><devicecam>Logitech QuickCam PTZ</devicecam><camname>Cam_123</camname><displayname>Children's room</displayname><motion>50</motion><priority>1</priority></cam><cam id=2><devicecam>ICatch VI PC CAMERA</devicecam><camname>Cam_456</camname><displayname>The Kitchen</displayname><motion>40</motion><priority>2</priority></cam><cam id=3><devicecam>VHScrCap</devicecam><camname>Cam_789</camname><displayname>Balcony</displayname><motion>20</motion><priority>3</priority></cam><cam id=4><devicecam>ICatch (VI) PC Camera</devicecam><camname>Cam_101112</camname><displayname>My bedroom</displayname><motion>40</motion><priority>4</priority></cam><cam id=5><devicecam>USB Video Device</devicecam><camname>Cam_131415</camname><displayname>1.3 MEGA Camera</displayname><motion>40</motion><priority>5</priority></cam>"
    Call oFlash.SetVariable("strVB", myString)
    'Call oFlash.SetVariable("flag", "true")
    'MsgBox myString
    oFlash.CallFunction ("<invoke name=""splitCam"" returntype = ""xml""></invoke>")
    oFlash.CallFunction ("<invoke name=""setCam"" returntype = ""xml""></invoke>")
    oFlash.CallFunction ("<invoke name=""syncCam"" returntype = ""xml""></invoke>")
    oFlash.CallFunction ("<invoke name=""putCam"" returntype = ""xml""></invoke>")
    oFlash.CallFunction ("<invoke name=""loadZones"" returntype = ""xml""></invoke>")
    oFlash.CallFunction ("<invoke name=""setCamValue"" returntype = ""xml""></invoke>")
End Sub

Private Sub Command1_Click()
    ZTray1.ShowInTray = True
    Me.Hide
End Sub

Private Sub Command2_Click()
    Call oFlash.SetVariable("rfid", Text2.Text)
    'MsgBox Text2.Text
    'Text1.Text = Text1.Text + "--> Taking a shot..."
End Sub

Private Sub oFlash_FSCommand(ByVal command As String, ByVal args As String)
   'MsgBox args
   If (command <> "") Then
    Text1.Text = Text1.Text + "-->" + command
   'ElseIf args = "startShot" Then
   ' Text1.Text = Text1.Text + "--> Start shot..."
  ' ElseIf args = "endShot" Then
  '  Text1.Text = Text1.Text + "--> End shot!"
   ElseIf args = "load" Then
   loadFlash
   Else: Text1.Text = Text1.Text + "-->" + args
   End If
End Sub

Private Sub ZTray1_DblClick(button As Integer)
    Me.Show
End Sub
